;DUMP ALL,"DO PART 5" AS TEACH  ;TELCOMP TEACHER =3284.65,R[58]=2374.6,R[59]=7468.25,R[63]=74.6
2.01 SET A=73
2.02 SET B=42
2.03 SET HYP=SQRT(A^2 + B^2)
2.04 TYPE A, B, HYP
2.05 TO PART 9;  THIS SIMPLY GETS ME BACK TO WHERE I WANT TO BE
3.001 DEMAND A, B
3.002 HYP=SQRT(A^2 + B^2); NOTICE I OMMITTED SET, IT IS IMPLIED
3.003 TYPE A, B, HYP
3.004 TO STEP 9.010
5.1 PAGE
5.101 TYPE"MY NAME IS TELCOMP.  I AM A PROGRAMMING SYSTEM."
5.102 TYPE"IF YOU WOULD LIKE TO LEARN HOW I WORK, TYPE GO,"
5.103 TYPE"AND THEN PUSH THE RETURN KEY."
5.1032 LINE FOR I=1:1:2
5.104 STOP
5.1049 LINE FOR I=1:1:2
5.105 TYPE" LETS TAKE A SIMPLE PROBLEM FIRST."
5.106LINE
5.107 TYPE" SUPPOSE WE WANT TO USE THE COMPUTER AS A DESK"
5.108 TYPE" CALCULATOR. LETS ADD THREE NUMBERS"
5.1082 LINE FOR I=1:1:2
5.109 TYPE" SET ANS= 47.64 + 8.3342 + 9877.4"
5.11 TYPE" TYPE ANS"
5.111 SET ANS=47.64 + 8.3342 + 9877.4
5.112 TYPE ANS
5.113 LINE FOR I=1:1:3
5.114 TYPE" WOULD YOU LIKE TO DO SOME ADDITIONS? JUST FOLLOW"
5.115 TYPE" THE EXAMPLE. YOU CAN ADD ANY NUMBER OF NUMBERS"
5.116 TYPE" AS LONG AS THEY FIT ON A LINE.  INCIDENTALLY,"
5.117 TYPE" I CHOSE ANS AS A  SHORTHAND WORD FOR ANSWER"
5.118 TYPE" BUT IF YOU PREFER SOME OTHER WORD, USE IT. FOR"
5.119 TYPE" EXAMPLE YOU MIGHT LIKE THE WORD SUM.  THE ONLY"
5.120 TYPE" RESTRICTION IS IT CAN HAVE ONLY SIX LETTERS."
5.121 TYPE " WHEN YOU TIRE OF ADDITION TYPE:"
5.122 TYPE"                                   GO"
5.123 TYPE" REMEMBER TO PUSH THE RETURN KEY AT THE END OF A STATEMENT"
5.1231 LINE
5.1232 TYPE" IF YOU MAKE A TYPING ERROR, PUSH RUBOUT KEY, START OVER"
5.124 LINE FOR I=1:1:3
5.125 STOP
5.2  LINE FOR I=1:1:3
5.201 TYPE" BY THE WAY, IN CASE YOU HAVENT ALREADY TRIED IT,"
5.202 TYPE" YOU MIGHT LIKE TO SEE WHAT HAPPENS IF YOU "
5.203 TYPE" ATTEMPT TO USE A CODE WORD OF MORE THAN SIX"
5.204 TYPE" LETTERS.  AFTERWARDS, TYPE GO, AND RETURN"
5.3 LINE FOR I=1:1:3
5.3002 STOP
5.3003 LINE FOR I=1:1:3
5.301 TYPE" I CAN ALSO MULTIPLY (*), DIVIDE (/), AND SUBTRACT (-)"
5.302 TYPE" JUST WATCH"
5.303 LINE FOR I=1:1:3
5.304 TYPE" SET ANS = 3.2 + 6.1 * 5.4 - 4.2/2"
5.305 SET ANS=3.2+6.1*5.4-4.2/2
5.306 TYPE" TYPE ANS"
5.307  TYPE ANS
5.3072 LINE
5.3073 TYPE" NOTICE THE ORDER OF OPERATIONS. MULTIPLICATION"
5.3074 TYPE" AND DIVISON COME BEFORE ADDITION AND SUBTRACTION."
5.3075 TYPE" TO CHANGE THE ORDER YOU HAVE TO USE ( AND ) TO"
5.3076 TYPE" ENCLOSE WHAT YOU WANT TO COME FIRST."
5.30771 LINE
5.30772 TYPE" FOR EXAMPLE:"
5.30773 LINE
5.30774 TYPE" SET ANS = (3.2 + 6.1) * (5.4 - 4.2/2)"
5.30775  SET ANS=(3.2+6.1)*(5.4-4.2/2)
5.30776 TYPE " TYPE ANS"
5.30777 TYPE ANS
5.308 LINE FOR I=1:1:3
5.309 TYPE" WOULD YOU LIKE TO TRY SOME? AFTERWARDS YOU KNOW"
5.310 TYPE" WHAT TO DO: GO, THEN RETURN"
5.311 LINE FOR I=1:1:3
5.312 STOP
5.4 LINE FOR I=1:1:3
5.401  TYPE" I CAN ALSO RAISE NUMBERS TO VARIOUS POWERS."
5.402 TYPE" FOR EXAMPLE:"
5.403 TYPE"             SET ANS = 3^2"
5.404 TYPE"             TYPE ANS"
5.405 SET ANS=3^2
5.406 TYPE ANS
5.4061 LINE FOR I=1:1:3
5.407 TYPE" CARE TO TRY? AFTERWARDS, GO"
5.4071 LINE FOR I=1:1:3
5.408 STOP
5.409 TO STEP 6.1
6.1 LINE FOR I=1:1:3
6.101 TYPE " I CAN DO LOTS MORE TOO.  I CAN TAKE SQUARE ROOTS"
6.102TYPE" OF NUMBERS, SEE:"
6.103TYPE"                 SET ANS = SQRT(25)"
6.104 TYPE"              TYPE ANS"
6.105 SET ANS=SQRT(25)
6.106 TYPE ANS
6.107 LINE FOR I=1:1:3
6.108 TYPE" ARE YOU INTERESTED IN TAKING SQUARE ROOTS?"
6.109 TYPE" AFTERWARDS, GO"
6.110 LINE FOR I=1:1:3
6.111 STOP
6.112 LINE FOR I=1:1:3
6.113 TYPE" I THINK NOW IS THE TIME TO INTRODUCE FORMALLY THE"
6.114 TYPE" CONCEPT OF A VARIABLE. A VARIABLE IS SIMPLY A CODE"
6.1141TYPE" WORD FOR A NUMBER, JUST AS ANS WAS BEFORE. YOU CAN"
6.1142TYPE" USE VARIABLES FREELY (ONLY 6 LETTERS LONG THOUGH)"
6.115 TYPE" AS LONG AS I KNOW, OR CAN CALCULATE WHAT THEIR"
6.116TYPE" VALUES ARE WHEN IT IS TIME FOR ME TO USE THEM."
6.117 LINE
6.118 TYPE" LETS PURSUE OUR SQUARE ROOT EXAMPLE USING VARIABLES."
6.119 LINE FOR I=1:1:3
6.120 TYPE" SET ANS = 37.8 + 56.2"
6.121 TYPE" SET RT = SQRT(ANS)"
6.122 TYPE" TYPE RT"
6.123 SET ANS = 37.8+56.2
6.124 SET RT=SQRT(ANS)
6.125 TYPE RT
6.1251LINE FOR I=1:1:3
6.1252 TYPE" DO YOU WANT TO TRY SOME THINGS? AFTERWARDS, GO."
6.1253LINE FOR I=1:1:3
6.12531 STOP
6.12532 LINE FOR I=1:1:3
6.126TYPE" NOW LET ME LIST FOR YOU ALL THE OTHER FUNCTIONS"
6.127TYPE" WHICH I CAN CALCULATE."
6.128 PAGE
6.129TYPE"SQRT(VAR)      POSITIVE SQUARE ROOT"
6.130 LINE
6.131TYPE"LOG(VAR)       BASE 10 LOGARITHM"
6.132LINE
6.133TYPE"LN(VAR)        NATURAL LOGARITHM"
6.134LINE
6.135TYPE"EXP(VAR)       E RAISED TO THE POWER, VAR"
6.136LINE
6.137TYPE"'VAR'          THE ABSOLUTE VALUE OF VAR"
6.138LINE
6.139TYPE"IP(VAR)        THE INTEGER PART OF VAR"
6.140LINE
6.141TYPE"FP(VAR)        THE FRACTIONAL PART OF VAR"
6.142LINE
6.143TYPE"XP(VAR)        EXPONENT PART"
6.144LINE
6.145TYPE"SGN(VAR)       SIGN, EITHER -1, 0, OR +1"
6.146LINE
6.147TYPE"SIN(VAR)       TRIGONOMETRIC SIN, VAR IN RADIANS"
6.148LINE
6.149 TYPE"COS(VAR)      TRIGONOMETRIC COS, VAR IN RADIANS"
6.150LINE
6.151TYPE"ATN(VAR,CDE)   ARCTAN(VAR/CDE), RADIANS"
6.152LINE FOR I=1:1:3
6.153 TO STEP 7.1005
7.1005 LINE FOR I=1:1:3
7.1006 TYPE" OH, I ALMOST FORGOT TO MENTION THAT YOU CAN"
7.1007 SET QXY=7
7.101TYPE" SUBSCRIPT YOUR VARIABLES WITH UP TO FOUR"
7.102 TYPE" SUBSCRIPTS PER VARIABLE."
7.103 LINE FOR I=1:1:3
7.104 TYPE" FOR EXAMPLE, SUPPOSE WE WANT TO DO A NUMBER OF"
7.105 TYPE" ADDITIONS AND WE WANT TO BE ABLE TO IDENTIFY"
7.1055 TYPE" ALL THE DIFFERENT TOTALS. WE CAN DENOTE THE"
7.106 TYPE" FIRST TOTAL AS SUM[1], THE SECOND AS SUM[2],"
7.107 TYPE" THE THIRD AS SUM[3], AND SO FORTH."
7.108 LINE FOR I=1:1:3
7.109 SET S=$SEC
7.110 TO STEP 7.110 IF $SEC<S+QXY
7.111 TYPE" AS YOU MIGHT HAVE GUESSED, WE CAN DENOTE THE"
7.112 TYPE" N TH TOTAL AS SUM[N], AS LONG AS I KNOW"
7.113 TYPE" WHAT THE VALUE OF N IS WHEN I NEED TO USE IT."
7.114 LINE FOR I=1:1:3
7.115 TYPE" LET ME POINT OUT THAT THERE IS NOTHING MAGICAL"
7.116 TYPE" ABOUT THE LETTER N.  I COULD HAVE WRITTEN"
7.1165LINE
7.117TYPE"      SUM[ZIT, SOT]"
7.118LINE
7.119 TYPE" OR   SUM[TIF, PIK]"
7.1191 LINE FOR I=1:1:3
7.1192 TYPE" NOTICE YOU MUST USE SQUARE BRACKETS [UPPER CASE K & M]."
7.120LINE FOR I=1:1:3
7.121 SET S=$SEC
7.122 TO STEP 7.122 IF $SEC<S+QXY
7.123 TYPE" YOU MAY BE WONDERING IF I CAN ACCEPT SUBSCRIPTS"
7.124 TYPE" THAT ARE THEMSELVES SUBSCRIPTED VARIABLES."
7.125TYPE" THE ANSWER IS THAT I CAN, SO LONG AS I CAN"
7.128TYPE" EVALUATE THEM BEFORE I HAVE TO USE THEM."
7.129 LINE FOR I=1:1:3
7.130 TYPE" CONSEQUENTLY THE FOLLOWING IS A LEGITIMATE VARIABLE:"
7.131LINE
7.132TYPE"      SUM[SOT[FIG[5.6]], A[B[C[D[E]]]]]"
7.133LINE FOR I=1:1:3
7.134 SET S=$SEC
7.135 TO STEP 7.135  IF $SEC<S+QXY
7.136 TYPE" WOULD YOU LIKE TO TRY SETTING SOME COMPLICATED"
7.137TYPE" EXPRESSION EQUAL TO SOME VALUE, SAY 33."
7.138TYPE" DONT BE UPSET BY MISTAKES, THEYRE PART OF THE GAME."
7.139TYPE" AFTERWARDS, TYPE GO, AND RETURN."
7.140 LINE FOR I=1:1:3
7.150 STOP
7.151 LINE FOR I=1:1:3
7.152TYPE" IN CASE YOU HAD TROUBLE, LET ME DO THE FOLLOWING EXAMPLE"
7.153 LINE
7.154 TYPE"      SET F=1"
7.155TYPE"      SET D[F]=2"
7.156 TYPE"      SET C[D[F]]=3"
7.157 TYPE"      SET B=1"
7.158 TYPE"      SET NUM[B, C[D[F]]]=5"
7.159TYPE"      SET ANS=SQRT((NUM[B, C[D[F]]])^2)"
7.160 LINE
7.161 TYPE"      TYPE ANS"
7.162 LINE
7.163 SET F=1, D[F]=2, C[D[F]]=3,B=1, NUM[B,C[D[F]]]=5
7.164 SET ANS=SQRT((NUM[B,C[D[F]]])^2)
7.165 TYPE ANS
7.166 LINE FOR I=1:1:3
7.167 SET S=$SEC
7.168 TO STEP 7.168 IF $SEC<S+QXY
7.169 TYPE" OH, ONE THING MORE. WE COULD HAVE USED ONE SET COMMAND"
7.170 TYPE" TO SET A WHOLE LIST OF THINGS TO THEIR RESPECTIVE VALUES."
7.1705TYPE" TO WIT:"
7.171 TYPE"        SET F=1, D[F]=2, C[D[F]]=3, B=1"
7.172 LINE FOR I=1:1:3
7.173 TYPE" SINCE I ALWAYS REMEMBER WHAT I HAVE DONE, LETS"
7.174 LINE
7.175 TYPE"       TYPE F, D[F], C[D[F]], B, NUM[B,C[D[F]]], ANS"
7.1755 LINE
7.176 TYPE F, D[F], C[D[F]],B,NUM[B,C[D[F]]], ANS
7.177 LINE FOR I=1:1:3
7.178 SET S=$SEC
7.179 TO STEP 7.179 IF $SEC<S+QXY
7.180 TYPE" I THINK YOU KNOW ENOUGH TO USE ME AS A DESK CALCULATOR."
7.181TYPE" GO AHEAD, AND WHEN YOU ARE READY, TYPE GO, AND"
7.182TYPE" WE WILL PROCEED TO WRITING STORED PROGRAMS."
7.183 LINE FOR I=1:1:3
7.184 STOP
7.185 TO STEP 8.100
8.100TYPE" EVERYTHING THAT YOU HAVE DONE SO FAR HAS BEEN BY WAY"
8.101TYPE" OF IMMEDIATE COMMANDS. SUPPOSE, HOWEVER, THAT YOU WOULD"
8.102TYPE" LIKE TO WRITE OUT FOR ME A SEQUENCE OF STEPS. I CAN"
8.103 TYPE" STORE THESE FOR FUTURE REFERENCE, TO BE EXECUTED"
8.104 TYPE" UPON COMMAND."
8.105LINE FOR I=1:1:3
8.106TYPE" ALL YOU HAVE TO DO IS GIVE EACH STEP A NUMBER."
8.107LINE
8.108TYPE" YOU MAY GIVE ME THE STEPS IN ANY ORDER, BUT I SHALL"
8.109TYPE" EXECUTE THEM ACCORDING TO THEIR NUMERICAL ORDER."
8.110 LINE FOR I=1:1:3
8.111 SET S=$SEC
8.112 TO STEP 8.112 IF $SEC<S+QXY
8.113TYPE" CONSIDER THE FOLLOWING EXAMPLE, COMPUTING THE"
8.114TYPE" HYPOTENUSE OF A RIGHT TRIANGLE."
8.115 LINE
8.116 TYPE PART 2
8.117 LINE FOR I=1:1:3
8.118TYPE" NOTICE THAT THE NUMBER OF EACH STEP IS A DECIMAL."
8.119TYPE" THE INTEGER SEGMENT (TO THE LEFT OF THE POINT)"
8.120 TYPE" IS INTERPRETED AS THE PART NUMBER."
8.121TYPE" THUS, TO EXECUTE THIS SIMPLE PROGRAM, "
8.122TYPE" TYPE: DO PART 2       (THEN PUSH RETURN KEY, NATURALLY)"
8.123TYPE" AFTERWARDS, GO."
8.124 LINE FOR I=1:1:3
8.125 STOP
8.126 TYPE" I PAUSED"
9.001 LINE FOR I=1:1:3
9.002 STOP
9.0021 LINE
9.003TYPE" SUPPOSE YOU WANTED TO BE ABLE TO ENTER THE VALUES"
9.004TYPE" OF A AND B FROM THE KEYBOARD. OBSERVE:"
9.0041 LINE
9.005 TYPE PART 3
9.006 LINE FOR I=1:1:3
9.007 TYPE" TO EXECUTE TYPE DO PART 3.  WHEN I TYPE A=   YOU"
9.008 TYPE" ENTER A VALUE (REMEMBER THE RETURN KEY) LIKEWISE"
9.009 TYPE" FOR B.  AFTERWARDS, GO"
9.010 LINE FOR I=1:1:3
9.011 STOP
9.012 LINE FOR I=1:1:3
9.013TYPE" WOULD YOU LIKE TO TRY A SIMPLE PROGRAM?  PLEASE"
9.014TYPE" MAKE IT PART 20.  (OTHERWISE YOU MAY DESTROY ME !!!)."
9.015TYPE" YOUR STEP NUMBERS CAN GO FROM 20.00001 TO 20.99999"
9.016TYPE" THIS SHOULD LEAVE YOU ENOUGH ROOM. "
9.017TYPE" TO EXECUTE IT, TYPE DO PART 20."
9.018TYPE" THEN, TO CONTINUE WITH THIS LESSON, TYPE DO PART 10."
9.019 LINE FOR I=1:1:3
9.020 STOP
9.021 TO PART 10
10.001  LINE FOR I=1:1:3
10.002 TYPE" NOW LETS GET TO THE REALLY INTERESTING THINGS."
10.003 LINE
10.004TYPE" IN THE COURSE OF A PROGRAM YOU MAY OFTEN WANT TO"
10.005TYPE" GO FROM THE POINT OF PRESENT EXECUTION TO SOME"
10.006TYPE" OTHER STEP, OR PART."
10.007LINE
10.008TYPE" THIS IS KNOWN AS AN UNCONDITIONAL BRANCH, AND THE"
10.009TYPE" COMMAND IS SIMPLY:"
10.010 LINE
10.011 TYPE"                  TO STEP A"
10.012 LINE
10.013TYPE"         OR       TO PART B"
10.014 LINE FOR I=1:1:3
10.015TYPE" THESE COMMANDS WILL TAKE YOU TO STEP A AND PART B,"
10.016TYPE" RESPECTIVELY (OF COURSE A AND B MUST BE DEFINED)."
10.017 LINE
10.018TYPE" THERE IS A RESTRICTION, HOWEVER.  THESE COMMANDS"
10.019TYPE" CANNOT BE USED AS IMMEDIATE COMMANDS, ONLY AS STORED"
10.020TYPE" COMMANDS. CONSEQUENTLY, THEY MUST ALWAYS BE"
10.021TYPE" PRECEDED BY A STEP NUMBER."
10.022LINE FOR I=1:1:3
10.023 SET S=$SEC
10.024 TO STEP 10.024 IF $SEC<S+QXY
10.025TYPE" LET ME ILLUSTRATE THE UNCONDITIONAL BRANCH"
10.026 LINE FOR I=1:1:3
10.027 TYPE STEP 11.100 + I FOR I=0:.001:.003
10.028 LINE FOR I=1:1:3
10.031 TYPE" AD INFINITUM, THEN LEAST AD NAUSEUM."
10.032TYPE" IF YOU CANT RESIST RUNNING PART 11, PLEASE"
10.033TYPE" AFTER A LITTLE WHILE:"
10.034TYPE"                       DEPRESS BREAK KEY"
10.035TYPE"        THEN,          DEPRESS BRK-RLS LIGHT"
10.036TYPE"        THEN,          TYPE DO PART 12"
10.037 LINE FOR I=1:1:3
10.038STOP
11.100 SET A=0
11.101 SET A=A+1
11.102 TYPE A
11.1021 TO STEP 11.104 IF A=37
11.103 TO STEP 11.101
11.104 LINE FOR I=1:1:3
11.105 TYPE" I REALLY THINK THATS ENOUGH OF THAT"
11.106 TO PART 12
12.001 LINE FOR I=1:1:3
12.002 TYPE" THE BRANCHING ROUTINE I JUST SHOWED YOU WAS AN"
12.003 TYPE" EXAMPLE OF AN UNCONDITIONAL BRANCH, BECAUSE THERE"
12.004TYPE" WAS NO CHOICE INVOLVED. EACH TIME STEP 11.103 WAS"
12.005TYPE " EXECUTED, IT HAD TO BRANCH TO 11.101."
12.006LINE FOR I=1:1:3
12.007TYPE" NOW LET ME GIVE YOU AN EXAMPLE OF A CONDTIONAL"
12.008TYPE" BRANCH. YOU MAY HAVE RUN ACROSS IT BY YOURSELF,"
12.009TYPE" BECAUSE IN PART 11 I FAILED TO MENTION THAT I"
12.010TYPE" DIDNT WANT TO TYPE MORE THAN 37 INTEGERS, BUT"
12.011TYPE" NOTICE STEP 11.1021"
12.012 LINE FOR I=1:1:3
12.013 TYPE PART 11
12.014 LINE FOR I=1:1:3
12.015 SET S=$SEC
12.016 TO STEP 12.016 IF $SEC>S+QXY
12.017TYPE" IN STEP 11.1021 THE CONDITIONAL MODIFIER  IF  WAS"
12.018 TYPE" USED WITH THE COMPARISON OPERATOR  =  ."
12.019LINE
12.020 TYPE" YOU CAN ALSO USE THE FOLLOWING, OR ANY COMBINATION"
12.021TYPE" OF THE FOLLOWING COMPARISON OPERATORS:"
12.022 LINE
12.023TYPE"     = ,  < ,  > "
12.024LINE
12.025TYPE" THUS I COULD HAVE SAID"
12.026LINE
12.027TYPE" 11.1021 TO STEP 11.104 IF A>=37"
12.028 TO PART 13
13.01 LINE FOR I=1:1:3
13.02 TYPE" I THINK PERHAPS YOU NOW KNOW ENOUGH TO BE ABLE"
13.03 TYPE" TO GO TO THE PRINTED SUMMARY OF TELCOMP STATEMENTS"
13.04TYPE" AND THEN PROCEED ON YOUR OWN.   GOOD LUCK."
20.1 DEMAND A
20.2 SET S = SQRT (A)
20.3 TYPE S
90.1 TO STEP X
DO PART 5
DUMPED
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  